home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9001a.d64 / qll loadgr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  108 lines
  1. 1 REM          GRAFIKLADEPROGRAMM ZUR
  2. 2 REM          ZOLLRASTERHARDCOPY
  3. 3 REM
  4. 4 REM          VON NORBERT RAMEK
  5. 5 REM          IGNAZ RIEDERKAI 17
  6. 6 REM          A-5020 SALZBURG
  7. 7 REM
  8. 100 SYS8*4096
  9. 110 *= 26400
  10. 120 .OPT OO
  11. 210 CHKCOM = $AEFD
  12. 220 GETPAR = $E1D4
  13. 230 CHKGET = $B7F1
  14. 240 LOAD = $FFD5
  15. 280 VIC = $D000
  16. 290 CIA2 = $DD00
  17. 400 ;
  18. 401 ;SPRUNGADRESSEN
  19. 402 ;**************
  20. 403 ;
  21. 410 JMP CLEAR;=26400
  22. 420 JMP GLOAD;=26403
  23. 430 JMP TRANS;=26406
  24. 500 ;
  25. 501 ;GRAFIK LOESCHEN
  26. 502 ;***************
  27. 503 ;
  28. 510 CLEAR JSR CHKGET;PUNKTFARBE
  29. 520 TXA
  30. 530 ASL
  31. 540 ASL
  32. 550 ASL
  33. 560 ASL
  34. 570 STA $FD;MERKEN
  35. 580 JSR CHKGET;HINTERGRUNDFARBE
  36. 590 TXA
  37. 600 AND #%00001111
  38. 610 ORA $FD
  39. 620 LDY #0;AB $6000 FARBCODE SETZEN
  40. 630 STY $FD
  41. 640 LDX #$60
  42. 650 STX $FE
  43. 660 LDX #4;ANZAHL PAGES (BIS $63FF)
  44. 670 CL1 STA ($FD),Y
  45. 680 INY
  46. 690 BNE CL1
  47. 700 INC $FE;HI ERHOEHEN
  48. 710 DEX
  49. 720 BNE CL1
  50. 730 LDY #0;AB $4000 LOESCHEN
  51. 740 STY $FD
  52. 750 LDA #$40
  53. 760 STA $FE
  54. 770 LDX #32;ANZAHL PAGES (BIS $5FFF)
  55. 780 TYA;Y=0
  56. 790 CL2 STA ($FD),Y;LOESCHEN
  57. 800 INY
  58. 810 BNE CL2
  59. 820 INC $FE;HI ERHOEHEN
  60. 830 DEX
  61. 840 BNE CL2
  62. 850 RTS
  63. 1000 ;
  64. 1001 ;GRAFIK LADEN
  65. 1002 ;************
  66. 1003 ;
  67. 1010 GLOAD LDA #%00111011;GRAFIK EIN
  68. 1020 STA VIC+17
  69. 1030 LDA #%10000000;VIDEORAM NACH $6000
  70. 1040 STA VIC+24;BITMAP NACH $4000
  71. 1050 LDA #%00000010
  72. 1060 STA CIA2
  73. 1070 JSR CHKCOM
  74. 1080 JSR GETPAR
  75. 1090 LDY #$40;LADEADRESSE HI
  76. 1100 LDX #0;LO
  77. 1110 TXA;LOAD-FLAG = 0
  78. 1120 JSR LOAD
  79. 1130 LDA #%00011011;GRAFIK AUS
  80. 1140 STA VIC+17
  81. 1150 LDA #%00010101
  82. 1160 STA VIC+24
  83. 1170 LDA #%00000011
  84. 1180 STA CIA2
  85. 1190 RTS
  86. 1500 ;
  87. 1501 ;GRAFIK VESCHIEBEN
  88. 1502 ;*****************
  89. 1503 ;
  90. 1510 TRANS LDY #0;ORIG. ADRESSE $4000
  91. 1520 STY $FD
  92. 1530 STY $FB
  93. 1540 LDA #$40
  94. 1550 STA $FE
  95. 1560 LDA #$20;ZIELADRESSE $2000
  96. 1570 STA $FC
  97. 1580 LDX #32;ANZAHL PAGES
  98. 1590 TYA;Y=0
  99. 1600 TR1 LDA ($FD),Y
  100. 1610 STA ($FB),Y
  101. 1620 INY
  102. 1630 BNE TR1
  103. 1640 INC $FE;HI ERHOEHEN
  104. 1650 INC $FC
  105. 1660 DEX
  106. 1670 BNE TR1
  107. 1680 RTS
  108.